home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 10 / CU Amiga Magazine's Super CD-ROM 10 (1997-03-15)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-05][50887 CUAM10].iso / CUCD / Graphics / CyberGraphX3 / V3_Update_41b48 < prev    next >
Text File  |  1997-02-27  |  10KB  |  239 lines
  1. ;*****************************************************************************
  2. ;    ______        __                  ______                     __  __   __
  3. ;   / __  /       / /                 / __  /      Update        / /  \ \ / /
  4. ;  / /  -'__  __ / /___ ______ _____ / /_ -'_____ ______ ______ / /__  \ \ /
  5. ; / /     \ \/ // __  // ____// .__// // \ / .__// __  // __  // __  / /  /  V3
  6. ;/ /___    \  // /_/ // __/_ / /   / /_/ // /   / __  // /_/ // / / / / \ \
  7. ;\____/    / //_____//_____//_/   /_____//_/   /_/ /_// ____//_/ /_/ /_/ \_\
  8. ;         /_/                                        / /
  9. ;                                                   /_/
  10. ; CyberVision64/3D - CyberVision64
  11. ;
  12. ; CyberGraphX V3 BETA Update Installer ©1996,1997 by Robert C. Reiswig 
  13. ; $VER: V0.40b (February-26-1997)
  14. ; 
  15. ;--------------------------------------------------------------------------------
  16. ; Installer suggestions, problems or changes: vgr@best.com
  17. ;********************************************************************************
  18.  
  19. ;********************************************************************************
  20. ; Cyber Release & Boards
  21. ;********************************************************************************
  22. (set @user-level 2)
  23. (set #cyberver "V3 41.1 Beta")
  24. (set NoBoard 0)
  25. (set whereback "SYS:Storage")
  26. (message (cat "\nCyberGraphX " #cyberver "\n~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  27.               "\nCyberVision64/3D\n\nCyberVision64"
  28.          )
  29. )
  30.  
  31. (welcome)
  32. ;********************************************************************************
  33. ; Read All System information
  34. ;********************************************************************************
  35. (set cpu (database "cpu")) (if (> (exists ("sys:libs/68060.library")) 0) (set cpu "68060") )
  36. (set vblank (database "vblank")) (set graphmem (database "graphics-mem"))
  37. (set totmem (database "total-mem")) (set osver (/ (getversion "LIBS:version.library") 65536))
  38. (if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
  39. (set fastmem (- totmem graphmem))
  40. ( if (= osver 37) ( (set workbench "2.0")) ( if (= osver 38) ( (set workbench "2.1"))
  41. ( if (= osver 39) ( (set workbench "3.0")) ( if (= osver 40) ( (set workbench "3.1"))
  42. ( if (= osver 41) ( (set workbench "3.2")) )))))
  43. (set pick 0)
  44.  
  45. ;********************************************************************************
  46. ;English Strings
  47. ;********************************************************************************
  48. (set #By (cat "\n\nCyberGraphX\n\nRelease Version " #cyberver "\n\n\n\n"
  49.               "by:\n\nVision Factory Development"
  50.           
  51.          )
  52. )
  53. (set #nobackup "\n\nThis installer will copy the correct new V3 Libs and Monitor to the correct places. It will not do any backup while V3 is in beta.\n\nThis will not install V3 for the first time, it just updates V3. A V2->V3 updater is comming soon.")
  54. (set #askzorro "\nWhat type of machine is CyberGraphX V3 installed on?\n")
  55. (set #askcpu "\nWhat CPU does the machine have that you are updating CyberGraphX V3 on? The installer has found:\n")
  56. (set #wherelibs "Where are your CyberGraphX V3 libraries located? The default is 'SYS:Libs'")
  57. (set #whatboard (cat "\nPlease Select the Graphics Board you wish to update CyberGraphX Monitor File for:\n"))
  58. (set #todo-prompt "\nDo you wish to install:\n")
  59. (set #cgxmode-todo " CGXMode - Create & Change Screen Modes")
  60. (set #wheremode "Where do you wish to copy the CGXMode Program?")
  61.  
  62. ;********************************************************************************
  63. ;German Strings
  64. ;********************************************************************************
  65. (if (= @language "deutsch")
  66.  (
  67.  
  68.  (set #what "f")
  69.  
  70.  )
  71. )
  72.  
  73. ;********************************************************************************
  74. ; Start Update
  75. ;********************************************************************************
  76. ;(message #by)
  77. (message #nobackup)
  78.  
  79.  
  80. ;********************************************************************
  81. ; Double Check on the CPU
  82. ;********************************************************************
  83. (set cpu (database "cpu"))
  84. (if (= cpu 68000) (set #cpu 0)) (if (= cpu 68010) (set #cpu 0))
  85. (if (= cpu 68020) (set #cpu 0)) (if (= cpu 68030) (set #cpu 0))
  86. (if (= cpu 68040) (set #cpu 1)) (if (= cpu 68006) (set #cpu 1)) 
  87. (if (= @installer-version 0)
  88.   (if (> (exists ("sys:libs/68060.library")) 0) (set #cpu 1) )
  89.   (if (= cpu 68006) (set #cpu 1))
  90. )
  91.  
  92. (set cpuPick (askchoice (choices "68020 or 68030" "68040 or 68060")
  93.             (prompt #askcpu)
  94.                     (help   #askcpu)
  95.                   (default #cpu)
  96.       )
  97. )
  98.  
  99. (if (= cpuPick 0) (set cpuadd ".020")) (if (= cpuPick 1) (set cpuadd ".040"))
  100.  
  101. ;*******************************************************************
  102. ;  ASK where cybergfx libs are
  103. ;*******************************************************************
  104. (set wherelibs   (askdir (prompt #wherelibs)
  105.              (help   #wherelibs)
  106.                   (default "SYS:Libs")
  107.          )
  108. )
  109.  
  110. ;*******************************************************************
  111. ;  Copy libs if there
  112. ;*******************************************************************
  113. (if (exists (tackon "cgxsystemlib" (cat "cgxsystem.library" cpuadd)) )
  114.   (copyfiles (source (tackon "cgxsystemlib" (cat "cgxsystem.library" cpuadd))) (dest wherelibs) (newname "cgxsystem.library") (optional "nofail") ) 
  115. )
  116.  
  117.  
  118. ;*******************************************************************
  119. ;  ASK what board to update
  120. ;*******************************************************************
  121. (set BGuess 0)
  122.  
  123. (if (> (exists ("devs:monitors/CVision3D")) 0)  (set BGuess (+ BGuess 1)) )
  124. (if (> (exists ("devs:monitors/CVision64")) 0)  (set BGuess (+ BGuess 2)) )
  125.  
  126.  
  127.  
  128.   (set board (askoptions (choices  "CyberVision64/3D" "CyberVision64"
  129.                           (prompt #whatboard)
  130.                       (help #whatboard)
  131.                           (default BGuess)
  132.                          )
  133.              )     
  134.   )
  135.  
  136.  
  137.   (if (IN board 0)
  138.    (
  139.      (set error (run "tools/ChkCV3DZorro"))
  140.      (if (> error 0) (set guessZ 1) (set guessZ 0) )
  141.   
  142.      (set pickZ (askchoice (choices "zorro2 - Amiga 2000/zorro2 Expansion Box" "zorro3 - Amiga 3000(T)/4000(T)")
  143.                        (prompt #askzorro)
  144.                        (help   #askzorro)
  145.                            (default guessZ)
  146.                 )
  147.      )
  148.   
  149.      (if (= pickZ 0) (set zadd ".Z2"))   (if (= pickZ 1) (set zadd ".Z3")) 
  150.  
  151.      (if (exists (tackon "CV3DDriver" (cat "CVision3D" zadd)))
  152.       (if (= (exists (tackon "devs:monitors" "CVision3D.info")) 0)      
  153.        (copyfiles (source (tackon "CV3DDriver" (cat "CVision3D" zadd))) (dest "devs:monitors") (newname "CVision3D") (infos) (optional "nofail") ) 
  154.        (copyfiles (source (tackon "CV3DDriver" (cat "CVision3D" zadd))) (dest "devs:monitors") (newname "CVision3D") (optional "nofail") ) 
  155.       )      
  156.      )
  157.  
  158.      (if (exists (tackon "cgxvideolib" (cat "cgxvideo.library" cpuadd)) )
  159.        (copyfiles (source (tackon "cgxvideolib" (cat "cgxvideo.library" cpuadd))) (dest wherelibs) (newname "cgxvideo.library") (optional "nofail") ) 
  160.      )
  161.  
  162.      (if (exists (tackon "cgxmpeglib" (cat "cgxmpeg.library" cpuadd)) )
  163.        (copyfiles (source (tackon "cgxmpeglib" (cat "cgxmpeg.library" cpuadd))) (dest wherelibs) (newname "cgxmpeg.library") (optional "nofail") ) 
  164.      )
  165.  
  166.      (if (exists (tackon "cgx3dvirgelib" (cat "cgx3dvirgin.library" cpuadd)) )
  167.        (copyfiles (source (tackon "cgx3dvirgelib" (cat "cgx3dvirgin.library" cpuadd))) (dest wherelibs) (newname "cgx3dvirgin.library") (optional "nofail") ) 
  168.      )
  169.  
  170.    )
  171.   )
  172.  
  173.  
  174.   (if (AND (exists (tackon "CV64Driver" "CVision64")) (IN board 1) )
  175.    (if (= (exists (tackon "devs:monitors" "CVision64.info")) 0)  
  176.     (copyfiles (source (tackon "CV64Driver" "CVision64")) (dest "devs:monitors") (newname "CVision64") (infos) (optional "nofail") ) 
  177.     (copyfiles (source (tackon "CV64Driver" "CVision64")) (dest "devs:monitors") (newname "CVision64") (optional "nofail") ) 
  178.    )
  179.   )
  180.  
  181. ;*********************************************************************************
  182. ;* Ask user to install CGXMode 
  183. ;*********************************************************************************
  184. (set ToDo (askoptions (choices #cgxmode-todo)
  185.                       (prompt #todo-prompt)
  186.                       (help #todo-prompt)
  187.                       (default 1)
  188.           )
  189. ) 
  190.  
  191. (if (IN ToDo 0) 
  192.   ( 
  193.     (set wheremode   (askdir (prompt #wheremode)
  194.                              (help   #wheremode)
  195.                          (default "SYS:Prefs")
  196.              )
  197.     )
  198.  
  199.     (if (exists "CGXMode/CGXMode")
  200.      (if (= (exists (tackon wheremode "CGXMode.info")) 0)
  201.       (copyfiles (source "CGXMode/CGXMode")  (dest wheremode) (infos) (optional "nofail")) 
  202.       (copyfiles (source "CGXMode/CGXMode")  (dest wheremode) (optional "nofail"))          
  203.      )
  204.     )
  205.  
  206.  
  207.     (if (IN board 1) (set TTBOARD "CVision64") )    (if (IN board 0) (set TTBOARD "CVision3D") )
  208.     (if (> board 0)
  209.       (tooltype    (dest (tackon wheremode "CGXMode")) (settooltype "BOARD" TTBOARD) ) 
  210.     )
  211.  
  212.     (if (= @language "deutsch")
  213.      (
  214.        (if (= (exists "Locale:Catalogs") 0) (makedir "sys:Locale/Catalogs") )
  215.        (if (= (exists (tackon "Locale:Catalogs" "deutsch")) 0) (makedir (tackon "sys:Locale/Catalogs" "deutsch")) )
  216.        (if (exists "CGXMode/catalogs/deutsch/cgxmode.catalog")
  217.          (copyfiles (source "CGXMode/catalogs/deutsch/cgxmode.catalog") (dest "sys:Locale/Catalogs/deutsch") )
  218.        )
  219.      )
  220.     )
  221.  
  222.   )
  223. )
  224.  
  225. ;*******************************************************************
  226. ;  END
  227. ;*******************************************************************
  228. (if (> (exists ("c:multiview")) 0) (set #mpath "c:") )
  229. (if (> (exists ("sys:Utilities/multiview")) 0) (set #mpath "sys:Utilities") )
  230.  
  231. (run (cat "run " #mpath "/multiview Changes.txt") )
  232.  
  233. (set @default-dest "sys:")
  234.  
  235. (set #done "Update Complete!")
  236. (if (= @language "deutsch") (set #done "Update fertig!") )
  237.  
  238. (exit #done)
  239.